home *** CD-ROM | disk | FTP | other *** search
/ PC Gamer (Italian) 27 / PC Gamer IT CD 27.iso / MEDIA / STORE.DXR / Internal_17_close box 2.ls < prev    next >
Encoding:
Text File  |  1997-12-01  |  1.2 KB  |  62 lines
  1. on mouseEnter me
  2.   cursor(280)
  3. end
  4.  
  5. on mouseLeave me
  6.   cursor(-1)
  7. end
  8.  
  9. on mouseDown me
  10.   set the itemDelimiter to "."
  11.   set i to item 1 of field "whichBox"
  12.   case i of
  13.     "box1":
  14.       setAt(gselectedBoxes, 1, 1)
  15.     "box2":
  16.       setAt(gselectedBoxes, 2, 1)
  17.     "box3":
  18.       setAt(gselectedBoxes, 3, 1)
  19.     "box4":
  20.       setAt(gselectedBoxes, 4, 1)
  21.     "box5":
  22.       setAt(gselectedBoxes, 5, 1)
  23.     "box6":
  24.       setAt(gselectedBoxes, 6, 1)
  25.     "box7":
  26.       setAt(gselectedBoxes, 7, 1)
  27.     "box8":
  28.       setAt(gselectedBoxes, 8, 1)
  29.     "box9":
  30.       setAt(gselectedBoxes, 9, 1)
  31.     "box10":
  32.       setAt(gselectedBoxes, 10, 1)
  33.     "box11":
  34.       setAt(gselectedBoxes, 11, 1)
  35.     "box12":
  36.       setAt(gselectedBoxes, 12, 1)
  37.     "box13":
  38.       setAt(gselectedBoxes, 13, 1)
  39.     "box14":
  40.       setAt(gselectedBoxes, 14, 1)
  41.     "box15":
  42.       setAt(gselectedBoxes, 15, 1)
  43.     "box16":
  44.       setAt(gselectedBoxes, 16, 1)
  45.     "box17":
  46.       setAt(gselectedBoxes, 17, 1)
  47.     "box18":
  48.       setAt(gselectedBoxes, 18, 1)
  49.     "box19":
  50.       setAt(gselectedBoxes, 19, 1)
  51.     "box20":
  52.       setAt(gselectedBoxes, 20, 1)
  53.   end case
  54.   set the itemDelimiter to TAB
  55.   puppetSprite(22, 0)
  56. end
  57.  
  58. on mouseUp me
  59.   go("02a")
  60.   set the scrollTop of member "description" to 1
  61. end
  62.